home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / A2.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  71 lines

  1. 10  HGR : HCOLOR= 3
  2. 20 X% = 100:Y% = 80
  3. 22  GOSUB 240
  4. 24 X% = 108
  5. 26  GOSUB 254
  6. 28 X% = 116
  7. 30  GOSUB 270
  8. 32 X% = 124
  9. 34  GOSUB 254
  10. 36 X% = 132
  11. 38  GOSUB 240
  12. 40 X% = 140
  13. 100  VTAB (21): PRINT "Wrong this is what you would see.       Please wait and try again."
  14. 105  FOR I = 0 TO 1500: NEXT : CALL 62450
  15. 110  PRINT  CHR$(4);"run q10"
  16. 150  END 
  17. 198  REM       P
  18. 200  HPLOT X%,Y% -4 TO X%,Y% -5
  19. 202  HPLOT X% +1,Y% -6 TO X% +4,Y% -6
  20. 204  HPLOT X% +1,Y% -3 TO X% +4,Y% -3
  21. 206  HPLOT X% +4,Y% TO X% +4,Y% -6
  22. 208  RETURN 
  23. 210  REM       E
  24. 212  HPLOT X%,Y% TO X% +4,Y%
  25. 214  HPLOT X% +1,Y% -3 TO X% +4,Y% -3
  26. 216  HPLOT X%,Y% -6 TO X% +4,Y% -6
  27. 218  HPLOT X% +4,Y% TO X% +4,Y% -6
  28. 220  RETURN 
  29. 222  REM       R
  30. 224  HPLOT X% +4,Y% TO X% +4,Y% -6
  31. 226  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  32. 228  HPLOT X% +1,Y% -3 TO X% +3,Y% -3
  33. 230  HPLOT X%,Y% -4 TO X%,Y% -5
  34. 232  HPLOT X%,Y%
  35. 234  HPLOT X% +1,Y% -1
  36. 236  HPLOT X% +2,Y% -2
  37. 238  RETURN 
  38. 240  REM      M
  39. 242  HPLOT X%,Y% TO X%,Y% -6
  40. 244  HPLOT X% +1,Y% -5
  41. 246  HPLOT X% +2,Y% -3 TO X% +2,Y% -4
  42. 248  HPLOT X% +3,Y% -5
  43. 250  HPLOT X% +4,Y% TO X% +4,Y% -6
  44. 252  RETURN 
  45. 254  REM       A
  46. 256  HPLOT X%,Y% TO X%,Y% -4
  47. 258  HPLOT X% +4,Y% TO X% +4,Y% -4
  48. 260  HPLOT X% +1,Y% -2 TO X% +3,Y% -2
  49. 262  HPLOT X% +1,Y% -5
  50. 264  HPLOT X% +2,Y% -6
  51. 266  HPLOT X% +3,Y% -5
  52. 268  RETURN 
  53. 270  REM       D
  54. 272  HPLOT X%,Y% -1 TO X%,Y% -5
  55. 274  HPLOT X% +1,Y% TO X% +3,Y%
  56. 276  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  57. 278  HPLOT X% +4,Y% TO X% +4,Y% -6
  58. 280  RETURN 
  59. 282  REM       S
  60. 284  HPLOT X%,Y% -1 TO X%,Y% -2
  61. 286  HPLOT X%,Y% -5
  62. 288  HPLOT X% +1,Y% TO X% +3,Y%
  63. 290  HPLOT X% +1,Y% -3 TO X% +3,Y% -3
  64. 292  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  65. 294  HPLOT X% +4,Y% -5 TO X% +4,Y% -4
  66. 296  HPLOT X% +4,Y% -1
  67. 298  RETURN 
  68. 300  REM       T
  69. 302  HPLOT X%,Y% -6 TO X% +4,Y% -6
  70. 304  HPLOT X% +2,Y% TO X% +2,Y% -5
  71. 306  RETURN